-- background: 2665 from stack: in.5
-- bmap block id: 2402
-- flags: 0000
-- background id: 0
-- name: 


-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=365 top=146 right=164 bottom=431
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: message


-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=20 top=37 right=71 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go "Home"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=450 top=35 right=69 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 17481 / 17481
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to stack "Address"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=413 top=28 right=61 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Do it!
----- HyperTalk script -----
on mouseup
  show card field "about" at 255,170
end mouseup



-- part 12 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=261 top=146 right=164 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rec_del


-- part 13 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=314 top=188 right=238 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Convert Address to Text
----- HyperTalk script -----
on mouseUp
  hide msg
  put empty into field "message"
  push card
  if hilite of Background button "CR" is true then
    put Return into field "rec_del"
  else if hilite of Background button "Tab" is true then
    put Tab into field "rec_del"
  end if
  put field "rec_del" into record_del
  if hilite of card button "CR" is true then
    put Return into field "field_del"
  else if hilite of card button "Tab" is true then
    put Tab into field "field_del"
  end if
  put field "field_del" into field_del
  If field "Rec_del" is empty then
    answer "You have not entered a Record Deliminater." with "OK"
    exit mouseup
  end if
  If field "Field_del" is empty then
    answer "You have not entered a Field Deliminater." with "OK"
    exit mouseup
  end if
  If field_del = record_del then
    answer "Record and Field Delims can't be the same." with "OK"
    exit mouseup
  end if
  set cursor to 4
  open file "Add->Text"
  put empty
  show message window at 19,298
  set lockscreen to true
  go to address
  put the number of cards into cardnumber
  put "Getting Addresses - Cards to go:" && cardnumber into msg
  Repeat for cardnumber
    put cardnumber into last word of msg
    put 0 into linenumber
    put 0 into wordnumber
    repeat for the number of lines of field 1
      add one to linenumber
      If linenumber = 1 then
        Put the number of words of line 1 of field 1 into wordnumber
        If wordnumber = 0 then
          write field_del & field_del to file "Add->Text"
        else if wordnumber = 1 then
          write field_del & word 1 of line 1 of field 1 & field_del to file "Add->Text"
        else if wordnumber = 2 then
          write word 1 of line 1 of field 1 & field_del & word 2 of line 1 of field 1 & field_del to file "Add->Text"
        else if wordnumber > 2 then
          write word 1 to wordnumber - 1 of line 1 of field 1 & field_del & last word of line 1 of field 1 & field_del to file "Add->Text"
        end if
      else
        write line linenumber of field 1 & field_del to file "Add->text"
      end if
    end repeat
    If linenumber < 7 then
      repeat for 7 - linenumber
        write field_del to file "Add->Text"
      end repeat
    end if
    put 0 into linenumber
    repeat for the number of lines of field 2
      add one to linenumber
      write line linenumber of field 2 & field_del to file "Add->Text"
    end repeat
    If linenumber < 3 then
      repeat for 3 - linenumber
        write field_del to file "Add->Text"
      end repeat
    end if
    write record_del to file "Add->Text"
    go next card
    subtract 1 from cardnumber
  end repeat
  close file "Add->Text"
  pop card
  set lockscreen to false
  hide msg
  put "All Done!" into field "message"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=56 top=145 right=165 bottom=94
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CR
----- HyperTalk script -----
on mouseUp
  if hilite of me is true then
    hide msg
    set hilite of background button "Tab" to false
    set hilite of background button "Other" to false
  end if
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=129 top=145 right=165 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tab
----- HyperTalk script -----
on mouseUp
  if hilite of me is true then
    hide msg
    set hilite of background button "CR" to false
    set hilite of background button "Other" to false
  end if
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=196 top=145 right=165 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Other
----- HyperTalk script -----
on mouseUp
  if hilite of me is true then
    set hilite of background button "CR" to false
    set hilite of background button "Tab" to false
    put empty into field "rec_del"
    click at the location of field "rec_del"
  end if
end mouseUp



-- part 17 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=261 top=266 right=284 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Field_del